calculate Summary in R